home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cyber Whores
/
Cyber Whores.iso
/
autorun
/
unit1.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1996-03-25
|
1KB
|
61 lines
unit Unit1;
interface
uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
Forms, Dialogs, ExtCtrls;
type
TForm1 = class(TForm)
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Timer1Timer(Sender: TObject);
begin
close;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
ch:Integer;
dire,NewString:String;
cmd:array[0..255] of Char;
checkOk:Boolean;
begin
ch:=67;
dire:=chr(ch)+':\';
newString:=dire;
While FileSearch('reff.txt',dire)='' do
Begin
ch:=ch+1;
if Chr(ch)='Z' then
begin
ClickedOK := InputQuery('SomeThing Wrong !', 'Please Enter you CD-Rom Drive :', NewString);
if ClickedOK then
dire:=NewString
else
Halt;
end;
if Newstring='c:\' then dire:=chr(ch)+':\';
End;
STRPCopy(Cmd,dire+'autorun\java');
winExec(Cmd,SW_Shownormal);
end;
end.